/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 6 code / TCP.sea / TCP / NewsWatcher / NW Source / Shared Code / Reusable Source / spin.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 73 70 69 6e 2e 63 | 00 00 00 00 00 00 00 00 |..spin.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 07 28 00 | 00 01 9a ab 32 40 d8 ab |......(.|....2@..|
|00000060| 32 40 d8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |2@......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 fb 4f 00 00 |........|.....O..|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|000000d0| 09 73 70 69 6e 2e 63 0d | 0d 09 54 68 69 73 20 72 |.spin.c.|..This r|
|000000e0| 65 75 73 61 62 6c 65 20 | 6d 6f 64 75 6c 65 20 68 |eusable |module h|
|000000f0| 61 6e 64 6c 65 73 20 61 | 6e 69 6d 61 74 65 64 20 |andles a|nimated |
|00000100| 63 75 72 73 6f 72 73 2e | 0d 09 0d 09 43 6f 70 79 |cursors.|....Copy|
|00000110| 72 69 67 68 74 20 a9 20 | 31 39 39 34 2d 31 39 39 |right . |1994-199|
|00000120| 35 2c 20 4e 6f 72 74 68 | 77 65 73 74 65 72 6e 20 |5, North|western |
|00000130| 55 6e 69 76 65 72 73 69 | 74 79 2e 0d 0d 2d 2d 2d |Universi|ty...---|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 23 69 6e |--------|-*/..#in|
|00000190| 63 6c 75 64 65 20 22 64 | 65 66 2e 68 22 0d 23 69 |clude "d|ef.h".#i|
|000001a0| 6e 63 6c 75 64 65 20 22 | 73 70 69 6e 2e 68 22 0d |nclude "|spin.h".|
|000001b0| 23 69 6e 63 6c 75 64 65 | 20 22 72 65 73 75 74 69 |#include| "resuti|
|000001c0| 6c 2e 68 22 0d 0d 0d 0d | 73 74 61 74 69 63 20 48 |l.h"....|static H|
|000001d0| 61 6e 64 6c 65 20 67 41 | 63 75 72 20 3d 20 6e 69 |andle gA|cur = ni|
|000001e0| 6c 3b 09 09 09 2f 2a 20 | 68 61 6e 64 6c 65 20 74 |l;.../* |handle t|
|000001f0| 6f 20 61 6e 69 6d 61 74 | 65 64 20 63 75 72 73 6f |o animat|ed curso|
|00000200| 72 20 72 65 73 6f 75 72 | 63 65 20 2a 2f 0d 0d 0d |r resour|ce */...|
|00000210| 0d 2f 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |./*-----|--------|
|00000220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000260| 09 49 6e 69 74 43 75 72 | 73 6f 72 43 74 6c 20 0d |.InitCur|sorCtl .|
|00000270| 09 0d 09 49 6e 69 74 69 | 61 6c 69 7a 65 20 61 6e |...Initi|alize an|
|00000280| 20 61 6e 69 6d 61 74 65 | 64 20 63 75 72 73 6f 72 | animate|d cursor|
|00000290| 2e 0d 09 09 09 0d 09 45 | 6e 74 72 79 3a 09 61 63 |.......E|ntry:.ac|
|000002a0| 75 72 20 3d 20 68 61 6e | 64 6c 65 20 74 6f 20 27 |ur = han|dle to '|
|000002b0| 61 63 75 72 27 20 72 65 | 73 6f 75 72 63 65 2c 20 |acur' re|source, |
|000002c0| 6f 72 20 6e 69 6c 20 74 | 6f 20 75 73 65 20 27 61 |or nil t|o use 'a|
|000002d0| 63 75 72 27 20 69 64 3d | 30 2e 0d 2d 2d 2d 2d 2d |cur' id=|0..-----|
|000002e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000320| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0d 0d 70 61 73 63 61 |-------*|/..pasca|
|00000330| 6c 20 76 6f 69 64 20 49 | 6e 69 74 43 75 72 73 6f |l void I|nitCurso|
|00000340| 72 43 74 6c 20 28 48 61 | 6e 64 6c 65 20 61 63 75 |rCtl (Ha|ndle acu|
|00000350| 72 29 0d 7b 0d 09 73 68 | 6f 72 74 20 6e 75 6d 46 |r).{..sh|ort numF|
|00000360| 72 61 6d 65 73 2c 20 69 | 2c 20 69 64 3b 0d 09 43 |rames, i|, id;..C|
|00000370| 75 72 73 48 61 6e 64 6c | 65 20 63 75 72 73 6f 72 |ursHandl|e cursor|
|00000380| 48 61 6e 64 6c 65 3b 0d | 09 4f 53 45 72 72 20 65 |Handle;.|.OSErr e|
|00000390| 72 72 20 3d 20 6e 6f 45 | 72 72 3b 0d 0d 09 69 66 |rr = noE|rr;...if|
|000003a0| 20 28 61 63 75 72 20 3d | 3d 20 6e 69 6c 29 20 7b | (acur =|= nil) {|
|000003b0| 0d 09 09 65 72 72 20 3d | 20 4d 79 47 65 74 52 65 |...err =| MyGetRe|
|000003c0| 73 6f 75 72 63 65 28 27 | 61 63 75 72 27 2c 20 30 |source('|acur', 0|
|000003d0| 2c 20 26 67 41 63 75 72 | 29 3b 0d 09 09 69 66 20 |, &gAcur|);...if |
|000003e0| 28 65 72 72 20 21 3d 20 | 6e 6f 45 72 72 29 20 72 |(err != |noErr) r|
|000003f0| 65 74 75 72 6e 3b 0d 09 | 7d 20 65 6c 73 65 20 7b |eturn;..|} else {|
|00000400| 0d 09 09 67 41 63 75 72 | 20 3d 20 61 63 75 72 3b |...gAcur| = acur;|
|00000410| 0d 09 7d 0d 09 6e 75 6d | 46 72 61 6d 65 73 20 3d |..}..num|Frames =|
|00000420| 20 2a 28 73 68 6f 72 74 | 2a 29 28 2a 67 41 63 75 | *(short|*)(*gAcu|
|00000430| 72 29 3b 0d 09 66 6f 72 | 20 28 69 20 3d 20 30 3b |r);..for| (i = 0;|
|00000440| 20 69 20 3c 20 6e 75 6d | 46 72 61 6d 65 73 3b 20 | i < num|Frames; |
|00000450| 69 2b 2b 29 20 7b 0d 09 | 09 69 64 20 3d 20 2a 28 |i++) {..|.id = *(|
|00000460| 73 68 6f 72 74 2a 29 28 | 2a 67 41 63 75 72 20 2b |short*)(|*gAcur +|
|00000470| 20 34 2a 69 20 2b 20 34 | 29 3b 0d 09 09 63 75 72 | 4*i + 4|);...cur|
|00000480| 73 6f 72 48 61 6e 64 6c | 65 20 3d 20 47 65 74 43 |sorHandl|e = GetC|
|00000490| 75 72 73 6f 72 28 69 64 | 29 3b 0d 09 09 2a 28 43 |ursor(id|);...*(C|
|000004a0| 75 72 73 48 61 6e 64 6c | 65 2a 29 28 2a 67 41 63 |ursHandl|e*)(*gAc|
|000004b0| 75 72 20 2b 20 34 2a 69 | 20 2b 20 34 29 20 3d 20 |ur + 4*i| + 4) = |
|000004c0| 63 75 72 73 6f 72 48 61 | 6e 64 6c 65 3b 0d 09 7d |cursorHa|ndle;..}|
|000004d0| 0d 09 2a 28 73 68 6f 72 | 74 2a 29 28 2a 67 41 63 |..*(shor|t*)(*gAc|
|000004e0| 75 72 20 2b 20 32 29 20 | 3d 20 30 3b 0d 7d 0d 0d |ur + 2) |= 0;.}..|
|000004f0| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000540| 0d 09 53 70 69 6e 43 75 | 72 73 6f 72 20 0d 09 0d |..SpinCu|rsor ...|
|00000550| 09 53 70 69 6e 20 61 6e | 20 61 6e 69 6d 61 74 65 |.Spin an| animate|
|00000560| 64 20 63 75 72 73 6f 72 | 2e 0d 09 09 09 0d 09 45 |d cursor|.......E|
|00000570| 6e 74 72 79 3a 09 6e 75 | 6d 20 3d 20 73 70 69 6e |ntry:.nu|m = spin|
|00000580| 20 63 6f 6e 74 72 6f 6c | 20 70 61 72 61 6d 65 74 | control| paramet|
|00000590| 65 72 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |er..----|--------|
|000005a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005e0| 2a 2f 0d 0d 70 61 73 63 | 61 6c 20 76 6f 69 64 20 |*/..pasc|al void |
|000005f0| 53 70 69 6e 43 75 72 73 | 6f 72 20 28 73 68 6f 72 |SpinCurs|or (shor|
|00000600| 74 20 6e 75 6d 29 0d 7b | 0d 09 73 68 6f 72 74 20 |t num).{|..short |
|00000610| 6e 75 6d 46 72 61 6d 65 | 73 2c 20 63 75 72 46 72 |numFrame|s, curFr|
|00000620| 61 6d 65 2c 20 63 75 72 | 43 6f 75 6e 74 65 72 3b |ame, cur|Counter;|
|00000630| 0d 09 43 75 72 73 48 61 | 6e 64 6c 65 20 63 75 72 |..CursHa|ndle cur|
|00000640| 73 6f 72 48 61 6e 64 6c | 65 3b 0d 0d 09 69 66 20 |sorHandl|e;...if |
|00000650| 28 67 41 63 75 72 20 3d | 3d 20 6e 69 6c 29 20 7b |(gAcur =|= nil) {|
|00000660| 0d 09 09 49 6e 69 74 43 | 75 72 73 6f 72 43 74 6c |...InitC|ursorCtl|
|00000670| 28 6e 69 6c 29 3b 0d 09 | 09 69 66 20 28 67 41 63 |(nil);..|.if (gAc|
|00000680| 75 72 20 3d 3d 20 6e 69 | 6c 29 20 72 65 74 75 72 |ur == ni|l) retur|
|00000690| 6e 3b 0d 09 7d 0d 09 6e | 75 6d 46 72 61 6d 65 73 |n;..}..n|umFrames|
|000006a0| 20 3d 20 2a 28 73 68 6f | 72 74 2a 29 28 2a 67 41 | = *(sho|rt*)(*gA|
|000006b0| 63 75 72 29 3b 0d 09 63 | 75 72 43 6f 75 6e 74 65 |cur);..c|urCounte|
|000006c0| 72 20 3d 20 2a 28 73 68 | 6f 72 74 2a 29 28 2a 67 |r = *(sh|ort*)(*g|
|000006d0| 41 63 75 72 20 2b 20 32 | 29 3b 0d 09 63 75 72 43 |Acur + 2|);..curC|
|000006e0| 6f 75 6e 74 65 72 20 3d | 20 28 63 75 72 43 6f 75 |ounter =| (curCou|
|000006f0| 6e 74 65 72 20 2b 20 6e | 75 6d 29 20 25 20 28 6e |nter + n|um) % (n|
|00000700| 75 6d 46 72 61 6d 65 73 | 20 2a 20 33 32 29 3b 0d |umFrames| * 32);.|
|00000710| 09 2a 28 73 68 6f 72 74 | 2a 29 28 2a 67 41 63 75 |.*(short|*)(*gAcu|
|00000720| 72 20 2b 20 32 29 20 3d | 20 63 75 72 43 6f 75 6e |r + 2) =| curCoun|
|00000730| 74 65 72 3b 0d 09 63 75 | 72 46 72 61 6d 65 20 3d |ter;..cu|rFrame =|
|00000740| 20 63 75 72 43 6f 75 6e | 74 65 72 20 2f 20 33 32 | curCoun|ter / 32|
|00000750| 3b 0d 09 63 75 72 73 6f | 72 48 61 6e 64 6c 65 20 |;..curso|rHandle |
|00000760| 3d 20 2a 28 43 75 72 73 | 48 61 6e 64 6c 65 2a 29 |= *(Curs|Handle*)|
|00000770| 28 2a 67 41 63 75 72 20 | 2b 20 34 20 2b 20 34 2a |(*gAcur |+ 4 + 4*|
|00000780| 63 75 72 46 72 61 6d 65 | 29 3b 0d 09 53 65 74 43 |curFrame|);..SetC|
|00000790| 75 72 73 6f 72 28 2a 63 | 75 72 73 6f 72 48 61 6e |ursor(*c|ursorHan|
|000007a0| 64 6c 65 29 3b 0d 7d 0d | 00 00 00 00 00 00 00 00 |dle);.}.|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00000810| 67 73 20 69 6e 20 74 68 | 65 20 43 20 63 6f 64 65 |gs in th|e C code|
|00000820| 2c 20 61 6e 64 20 73 68 | 6f 75 6c 64 20 6e 6f 74 |, and sh|ould not|
|00000830| 06 73 70 69 6e 2e 63 b4 | 02 00 00 00 54 45 58 54 |.spin.c.|....TEXT|
|00000840| 4d 4d 43 43 01 00 00 d0 | 00 c0 00 00 00 00 12 77 |MMCC....|.......w|
|00000850| 00 00 54 45 58 54 4d 4d | 43 43 01 00 00 d0 00 c0 |..TEXTMM|CC......|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 aa 4f 8b 52 00 00 | 07 28 00 00 01 9a 74 20 |...O.R..|.(....t |
|00000880| 74 68 65 20 65 6e 64 20 | 6f 66 20 4e 65 77 73 57 |the end |of NewsW|
|00000890| 61 74 63 68 65 72 20 64 | 65 76 65 6c 6f 70 6d 65 |atcher d|evelopme|
|000008a0| 6e 74 20 62 79 20 61 6e | 79 20 6d 65 61 6e 73 2e |nt by an|y means.|
|000008b0| 20 57 65 20 77 6f 75 6c | 64 20 6c 69 6b 65 20 74 | We woul|d like t|
|000008c0| 6f 20 63 6f 6e 74 69 6e | 75 65 20 77 6f 72 6b 69 |o contin|ue worki|
|000008d0| 6e 67 20 6f 6e 20 74 68 | 65 20 70 72 6f 67 72 61 |ng on th|e progra|
|000008e0| 6d 20 74 6f 20 61 64 64 | 20 61 20 6e 75 6d 62 65 |m to add| a numbe|
|000008f0| 72 20 6f 66 20 6e 65 77 | 20 66 65 61 74 75 72 65 |r of new| feature|
|00000900| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 03 | 00 04 00 58 00 04 01 cd |........|...X....|
|00000930| 02 63 00 58 00 04 01 cd | 02 63 ac 22 e2 0e 00 00 |.c.X....|.c."....|
|00000940| 05 70 00 00 05 7a 00 00 | 01 46 01 00 00 00 00 04 |.p...z..|.F......|
|00000950| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00000960| 00 00 00 46 01 4e 2c a8 | 11 a2 00 00 00 1c 00 46 |...F.N,.|.......F|
|00000970| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00000980| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00000990| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+